home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS Mega ASM (19xx)(-).d64 / list4-5 < prev    next >
Text File  |  2019-04-13  |  585b  |  20 lines
  1. ; Linien zeichnen
  2.      t     "TestMen}"     ; TestMen} laden
  3.  
  4.      lda     #<50     ; Die x-Koordinate des
  5.      sta     $08     ; linken Bildpunktes wird
  6.      lda     #>50     ; in $08 (Low-Byte) und
  7.      sta     $09     ; $09 (High-Byte) gesetzt
  8.      lda     #100     ; Die y-Koordinate kommt
  9.      sta     $18     ; nach $18
  10.  
  11.      lda     #<300     ; Nach $0a, $0b kommt die
  12.      sta     $0a     ; x-Koordinate des
  13.      lda     #>300     ; rechten Bildpunktes
  14.      sta     $0b
  15.  
  16.      lda     #%11111111     ; Linienmuster
  17.  
  18.      jsr     $c118     ; horizontale Linie zeichnen
  19.      rts